From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 19 Jun 1997 02:44:46 +0000 (+0000)
Subject: (info-complete-symbol): If MODE is nil, use the default value.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80750
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=82fb111c22faebb8fd98b30f1bde2d0d01b723eb;p=emacs.git

(info-complete-symbol): If MODE is nil, use the default value.
---

diff --git a/lisp/info-look.el b/lisp/info-look.el
index c798bb769b4..113306dc69e 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -465,12 +465,13 @@ Return nil if there is nothing appropriate."
 ;;;###autoload
 (defun info-complete-symbol (&optional mode)
   "Perform completion on symbol preceding point."
-  (interactive
-   (list (if (info-lookup->mode-value
-	      'symbol (or info-lookup-mode major-mode))
-	     (or info-lookup-mode major-mode)
-	   (info-lookup-change-mode 'symbol))))
-  (info-complete 'symbol mode))
+  (interactive)
+  (info-complete 'symbol
+		 (or mode
+		     (if (info-lookup->mode-value
+			  'symbol (or info-lookup-mode major-mode))
+			 (or info-lookup-mode major-mode)
+		       (info-lookup-change-mode 'symbol)))))
 
 ;;;###autoload
 (defun info-complete-file (&optional mode)